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E Ljesres - find first set bit 
T /1=002/ ; File: LIBFFS.MAR 


MARBAARAARAAAAAAALALAAAAALALASLAA AEA LEAR RAR A RRR A AAAS A ARERR REAR RAR ARSE ASE R RASA SE SY 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONL ACCORDANCE H SUCH Th ie wr THE 


& 

ee 

® 

& 

® 

a 

e 

® 

| e 

OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. ° 
e 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT * 
& 

® 

oe 

ee 

® 

® 
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BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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+ 

FACILITY: General Utility Library 

ABSTRACT: 
A bit eyring is scanned for the first bit set. If one is found before 
the —s s exhausted then a success status is returned. Otherwise a 
failure status is returned. 


ENVIRONMENT: User Mode, AST Reentrant 


“AUTHOR: Donald G. Petersen, CREATION DATE: 03-Jan-78 
MODIFIED BY: 
DGP, 03-Jan-78 : VERSION 00 


4 - Original 
0-02 - DGP 06-Jan-78 - change LIBSNOTFOU to Literal 
change BEQL to BNEQ following FFS 
00-03 - Return SS$_NORMAL instead of SS$_NORMAL. IN Leyyty ve 
1-00 - Update version number and copyright pot lee. JBS 16-NOV-78 
; 1-002 - Add *'_|"’ to PSECT directive. JBS 21-DEC- 
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rst set bit 16-SEP-1984 :08:51 VAX/VMS Macro v04-00 P 
ONS grea Tas PPiBB 8s PAKENIS Bacco YOrOO Page 8, 
.SBTTL DECLARATIONS 
INCLUDE FILES: 


LIBSEFS - find f 
2 DECLARAT 


EXTERNAL DECLARATIONS: 
-DSABL GBL 


-EXTRN SS$_NORMAL 
-EXTRN LIBS_NOTFOU 


Oi septe automatic generation of 
Normal successful completion 
SEVERE error condition 

; Value not found 


: MACROS: 


: EQUATED SYMBOLS: 


FW (OOD NAW WP OOONOUE Ww 


: OWN STORAGE: 


SSSA AAA AAA AAO 
wo w 


¢ -PSECT _LIBSCODE PIC, SHR, LONG, EXE, NOWRT 
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oooooo 


t t PSECT DECLARATIONS: 


1 mi iets 99: 98: 3} AX/VM cro V04-00 Page a) 


= find care 
LIBSFFS ing. f ae set bit -SEP-1 LIBRTL.S REIL LIBFFS.MAR;1 


SIDE EFFECTS: 


SS$_ROPRAND - reserved operand fault occurs if: 
1.) size greater than 32 is Spec tt tee 
2.) start position is greater than 31 and field is in registers 


-ENTRY LIBSFFS , “M< > ; Entry point 


FFS Hb) heer @SIZECAP), - ; find first set bit 


108C OC BC O08 BC 048C EA 
@BASEC(AP), af INDPOS (AP) 


-SBTTL LIBSFFS = find first set bit 
Hi FUNCTIONAL DESCRIPTION: 
3 The shet¢ apes thos by the start position, size, and base is searched 
; for the first set bit. If one is found, a success status is returned as 
; cil os the bit cestiion (relative to She base) in the find position. 
; f a set bit is not found, a failure status is returned. If the size specif 
87 ; s sere then a failure status is returned. 
3¢ > CALLING SEQUENCE: 
6 : : status.wic.v = LIBSFFS (startpos.rl.r, size.rbu.r, base.rl.r, findpos.wl.r) 
00 004 ; STARTPOS = 4 ; Adr of start position 
80008 a08 § s17e e 8 i Adr of size” 
00000 ‘ 1 BASE = 12 ; Adr of bes 
00001 0 ¢ FINDPOS = 16 : Adr of field for set bit position 
80 4 ; INPUT PARAMETERS: 
00 5 3 
38 $ : NONE 
00 8 : IMPLICIT INPUTS: 
000 09 ; 
44 19 3 NONE 
$00 1 ! OUTPUT PARAMETERS: 
000 13 ; 
4 13 ; NONE 
0009 1 : IMPLICIT OUTPUTS: 
i 
900 0 > FUNCTION VALUE: 
0 5 § : SS$_NORMAL - if a set bit is found 
0000 ? ; LIBS_NOTFOU - if a set bit is not found 
‘ . 
f é : 
0; 
3 
4 
5 
96 3 $ BNEQ 10$ : branch if bit found 
50 0000C000'8F ? 3 ts #LIBS_NOTFOU, RO : return failure status 
50 00000000' 8F 0 rt 108: MOVL #SS$_NORMAL, RO ; return success status | 


em ee a ed td ot = od = = SS ts 


i ie CiBsres Find first set bit gs "erSep=]o8e 99:88: 8. ane. Seesciarescmars1 = P29" 4, 


001D 142 ~ END 


LIBSFFS - find first set bit 16-SEP-1984 00:08:51 VAX/VMS Macro V04-00 Page 
Symbol table aes 9:08:84 YTORTL. SREIL IBFFS.MAR;1 ’ 3) 
BA = 
LiBsrr se RG 4 
LIBS_NOTFOU gererrer x 0 
size = 0000000 
ss que eeeerere K 00 
STAR "POS = 0 
fora ne wemnronreacraeaan $ 
! Psect synopsis ! 
$e ees cw ene o coe eee} 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 <( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_LIBSCODE 0000001D 29.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 


pean ona were sen can moa me mrmos oe } 


! Performance indicators ! 


pesanmna seems ew eancaneneecan $ 


Phase Page faults CPU Time Elapsed Time 
Initialization 29 0:00:00.04 0:00:01.17 
pomnens processing 111 0: 9: 0.28 a EE 
s 1 66 0:00: 3 1 0:00: f° 6 
Synbol table sort 8 0: 3: 01 00: 88 01 
s 2 4 0:00:00.17 00:00:01.58 
wk, table output BB 88: 0.01 8:88:80 0 
Psect synopsis output :00:00.01 0:00:00.01 
Cross-reference output tS 9 0:00:00.00 
Assembler run totals 25 0:00:00. 00:00:08.07 


The working set are was 900 pages. 

1407 bytes (3 pages) of virtua memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space ol iecesee to hold 7 non-local and 1 Local symbols. 
142 source Lines were read in Pass 1, ocogye tng ft object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


oer em me mer no wr ne mores meme -+ 


' Macro Library statistics 2 


| Titman tn NAcc, IIc eeeeeeceoe 


Macro Library name Macros defined 
-$255S$DUA28: CSYSLIBISTARLET.MLB; 2 0 
0 GETS were required to define 0 macros. 


There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESS1ION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBFFS/OBJ=OBJ$:LIBFFS MSRC$:LIBFFS/UPDATE=(ENHS:LIBFFS) 
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